perm filename SEEKOU[CHE,WD] blob sn#017522 filedate 1972-12-23 generic text, type T, neo UTF8
00100	FEXPR SEEKOUT L;
00200	  BEGIN SCALAR OBL;
00300		OBL←APPLY('APPEND,OBLIST);
00400	  LOOP:	IF NULL OBL THEN RETURN;
00500		IF ¬GET(CAR OBL,CAR L) THEN GO ELOOP;
00600		PRINT CAR OBL;
00700		TABTO 20;
00800		PRIN1 GET(CAR OBL,CAR L);
00900	  ELOOP:OBL←CDR OBL;
01000		GO LOOP;
01100	  END;
01200	
01300	END;
01400